home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_18_(11-1984).d64 / disk datamaker (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  43 lines
  1. 1 REM FROM COMPUTE 4/84 PAGE 167
  2. 2 REM ENTERED FOR CUON LIBRARY BY SAM BARRETT
  3. 10 PRINT"[147]MAKE BASIC LOADER OUT OF"
  4. 20 PRINT"DISK OBJECT FILE."
  5. 30 INPUT"ENTER FILENAME";FL$
  6. 40 OPEN 15,8,15
  7. 50 OPEN8,8,8,FL$+",P,R"
  8. 60 GOSUB 370
  9. 70 INPUT"FILENAME TO CREATE";FC$
  10. 80 OPEN9,8,9,"0:"+FC$+",P,W"
  11. 90 GOSUB 370
  12. 100 GET#8,LO$,HI$
  13. 110 PRINT#9,CHR$(1)+CHR$(4);
  14. 120 LINK$=CHR$(1)+CHR$(1)
  15. 130 PRINT#9,LINK$;
  16. 140 FOR I=1 TO 4:READ BYTE:PRINT#9,CHR$(BYTE);:NEXT I
  17. 150 PRINT#9,MID$(STR$(ASC(LO$+CHR$(0))+ASC(HI$+CHR$(0))*256),2);
  18. 160 FORI=1 TO 42:READ BYTE:PRINT#9,CHR$(BYTE);:NEXT I
  19. 170 DATA 10,0,73,178,0,31,4,20
  20. 180 DATA 0,135,32,65,58,139
  21. 190 DATA 32,65,178,50,53,54,32,167,32,128
  22. 200 DATA 0,52,4,30,0,151,32,73,44,65,58,73,178,73,170,49,58,137,32,50,48,0
  23. 210 LO=ASC(LO$+CHR$(0)):HI=ASC(HI$+CHR$(0))
  24. 220 PRINT#9,LINK$+CHR$(LO)+CHR$(HI);
  25. 230 PRINT#9,CHR$(131)CHR$(32);
  26. 240 COUNT=1
  27. 250 GET#8,BYTE$:S=ST
  28. 260 PRINT#9,MID$(STR$(ASC(BYTE$+CHR$(0))),2);
  29. 270 COUNT=COUNT+1
  30. 280 IF COUNT=9 OR S<>0 THEN 310
  31. 290 PRINT#9,",";
  32. 300 GOTO 250
  33. 310 IF S THEN 340
  34. 320 LO=LO+8:IF LO>255 THEN LO=LO-256:HI=HI+1
  35. 330 PRINT#9,CHR$(0);:GOTO220
  36. 340 PRINT#9,",256"+CHR$(0)+CHR$(0)+CHR$(0);
  37. 350 CLOSE8:CLOSE9:CLOSE15
  38. 360 END
  39. 370 INPUT#15,E1,E2$,E3,E4
  40. 380 IF E1=0 THEN RETURN
  41. 390 PRINT"ERROR - "E1;E2$;E3;E4
  42. 400 CLOSE8:CLOSE9:CLOSE15
  43.